Aminet 44/Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso/Aminet/biz/dbase/LocalePL_OS39.lha/LocalePL_OS3.9/Instalacja

Text File | 2001-06-14 | 4KB | 163 lines

;--------------------------------------------------------------------
;
; $VER: LocalePL dla OS3.9
;
;--------------------------------------------------------------------
; Skrypt instalacyjny - Dariusz Krzempek  [e-mail] - http://www.darekhyq.prv.pl
; Skrypt zmodyfikowany przez Arkadiusz Dwojak oraz Paweî Goîdyn
; $Ver: 1.8 (14-06-2001)
; (c) 2001


(effect "center" "radial" $00FF00 $0000FF)

(set __version  1)
(set __revision 8)
(set __date "14.06.2001")

(set @default-dest "SYS:")                ; domyôlna ôcieûka dostëpu.

(set #wrongversion
 (cat "\n\n\nAby zainstalowaê tâ wersjë lokali, musisz posiadaê"
      "\nsystem w wersji przynajmniej 3.5 lub nowszy.")
)

(set #bad-kick
 (cat "\n\n\nPrzykro mi ale musisz mieê Kickstart w wersji przynajmniej 3.1")
)

(set #hello-message
 (cat "\n------------------------------------------\n"
      "         LocalePL OS3.9   "__version  "."  __revision "  (" __date ")\n"
      "------------------------------------------\n"
      "\n***  Witamy w programie instalacyjnym !  ***\n"
      "\nSkrypt Instalacyjny (c) Dariusz Krzempek - [e-mail] - http://www.darekhyq.prv.pl ,"
      "\nzmodyfikowany przez Pawîa Goîdyna dziëki pomocy mr.Dark'a."
      "\n\n"
      "\nTwórcy OS3.5 i OS3.9 olewajâ polskich uûytkowników wiëc my olewamy ich! :)\n")
)

(set #pomoc
 (cat "\n\n Lokale oraz flagi zostanâ zainstalowane w systemie, po instalacji zresetuj Amigë."
 )
)

(set #pomoc2
 (cat "\n\nBâdú spokojny, wszystko pójdzie jak powinno :)")
)

(set #pomoc3
 (cat "\n\neee... No chyba wszystko jest jasne? :)")
)

(set #koniec
 (cat "\n\n\n\nGotowe...  ®AmigaOS 3.9 jest po polsku! :)\n\n"
"Miîego uûytkowania systemu w jëzyku polskim\n"
"ûyczâ autorzy pakietu  Paweî Goîdyn i Arkadiusz Dwojak 'mr.Dark'.")
)

(set #info
 (cat "\n\n Wszelkie uwagi i sugestie proszë kierowaê na adres\n\n"
                        "e-mail: [e-mail]\n\n\n"
         "\n\n***   Proszë uruchomiê komputer ponownie   ***"
         "\n\n")
)


; -------------------------------------------------------------------------
; Sprawdú wersjë Installer'a & Kickstart'u, jeôli jest niewîaôciwa - koniec.
; -------------------------------------------------------------------------

(if (< @installer-version 2752521)
 (
  (message #wrongversion (all))
  (exit (quiet))
 )
)

 (if (< (getversion "LIBS:version.library") (* 39 65536))
   (abort #bad-kick)
 )

; -------------
; Powitanie
; -------------

(message #hello-message)

; -------------------
; Wîaôciwa Instalacja
; -------------------
; Kopiowanie lokali
; -------------------

(set wartosc
      (askbool
       (prompt "\n\n\n\nCzy zainstalowaê polskie lokale dla OS3.9 ?")
       (help (cat #pomoc)
        (choices "Tak" "Nie")
        (default 0)
       )
      )
)
(if (= wartosc 1)
     (
      (copyfiles
       (source "/LocalePL_OS3.9/Catalogs/Polski")
       (dest "SYS:Locale/Catalogs/Polski")
       (all)
      )
     )
)

; (makedir "SYS:Locale/Catalogs/polski/VNC")
; (run "copy catalogs/polski/VNC/vnc.sys.catalog SYS:Locale/catalogs/polski/VNC/")

(complete 50)

; -------------
; Kopiowanie Flag
; -------------

(set wartoscd
      (askbool
       (prompt "\n\n\n\nCzy zainstalowaê dodatkowe flagi ?"
       )
       (help (cat #pomoc2)
        (choices "Tak" "Nie")
        (default 0)
       )
      )
)

(if (= wartoscd 1)
     (
      (copyfiles
       (source "/LocalePL_OS3.9/FLAGS/COUNTRIES")
       (dest "SYS:Locale/Flags/Countries")
       (all)
      )
     )
)

 (complete 90)

(if (= wartoscd 1)
     (
      (copyfiles
       (source "/LocalePL_OS3.9/Locale/")
       (dest "SYS:Locale/")
       (all)
      )
     )
)

; --------
; Koniec
; --------

(complete 100)
(message #koniec)
(message #info)
(exit (quiet))